Data from KTH Directory API. Click a node for details (opens KTH website), scroll to zoom, drag to pan. Nodes can be dragged around.
---
title: "KTH Divisions in ABM"
output:
flexdashboard::flex_dashboard:
orientation: rows
vertical_layout: fill
source: embed
---
Divisions {.tabset .tabset-fade}
-------------------------------------
### Divisions
Data from KTH Directory API. Click a node for details (opens KTH website), scroll to zoom, drag to pan. Nodes can be dragged around.
```{r}
library(bibliomatrix)
library(dplyr)
library(DT)
fn <- abm_graph_divisions()
fn
#htmlwidgets::saveWidget(fn, "~/abm-divisions.html")
#browseURL("~/abm-divisions.html")
```
### Department stats
```{r}
ds <- con_bib("sqlite") %>% tbl("division_stats") %>% collect()
datatable(data = ds %>% arrange(nd_researchers, n_pubs) %>% select(starts_with("n"), everything()))
```
### Table
```{r}
datatable(data = abm_divisions())
```